home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / learnapi / about.frm (.txt) next >
Visual Basic Form  |  1998-07-02  |  8KB  |  234 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About LearnAPI"
  5.    ClientHeight    =   3885
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1935
  8.    ClientWidth     =   5760
  9.    ClipControls    =   0   'False
  10.    Icon            =   "About.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2681.496
  15.    ScaleMode       =   0  'User
  16.    ScaleWidth      =   5408.938
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.PictureBox picLogo 
  19.       BackColor       =   &H000000FF&
  20.       BorderStyle     =   0  'None
  21.       Height          =   615
  22.       Left            =   240
  23.       Picture         =   "About.frx":014A
  24.       ScaleHeight     =   615
  25.       ScaleWidth      =   495
  26.       TabIndex        =   3
  27.       TabStop         =   0   'False
  28.       Top             =   240
  29.       Width           =   495
  30.    End
  31.    Begin VB.PictureBox picBackground 
  32.       BackColor       =   &H000000FF&
  33.       Height          =   2055
  34.       Left            =   120
  35.       ScaleHeight     =   1995
  36.       ScaleWidth      =   675
  37.       TabIndex        =   2
  38.       TabStop         =   0   'False
  39.       Top             =   120
  40.       Width           =   735
  41.    End
  42.    Begin VB.CommandButton cmdOK 
  43.       Cancel          =   -1  'True
  44.       Caption         =   "OK"
  45.       Default         =   -1  'True
  46.       Height          =   345
  47.       Left            =   4680
  48.       TabIndex        =   0
  49.       Top             =   3480
  50.       Width           =   1020
  51.    End
  52.    Begin VB.Label lblURL 
  53.       AutoSize        =   -1  'True
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "web-site"
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   -1  'True
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       ForeColor       =   &H00FF0000&
  66.       Height          =   195
  67.       Index           =   2
  68.       Left            =   3960
  69.       MouseIcon       =   "About.frx":0454
  70.       MousePointer    =   99  'Custom
  71.       TabIndex        =   13
  72.       ToolTipText     =   "http://www.microweird.demon.co.uk"
  73.       Top             =   3360
  74.       Width           =   585
  75.    End
  76.    Begin VB.Label lblMailto 
  77.       AutoSize        =   -1  'True
  78.       BackStyle       =   0  'Transparent
  79.       Caption         =   "steve@microweird.demon.co.uk"
  80.       BeginProperty Font 
  81.          Name            =   "MS Sans Serif"
  82.          Size            =   8.25
  83.          Charset         =   0
  84.          Weight          =   400
  85.          Underline       =   -1  'True
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       ForeColor       =   &H00FF0000&
  90.       Height          =   195
  91.       Index           =   2
  92.       Left            =   1560
  93.       MouseIcon       =   "About.frx":05A6
  94.       MousePointer    =   99  'Custom
  95.       TabIndex        =   12
  96.       Top             =   3360
  97.       Width           =   2280
  98.    End
  99.    Begin VB.Label lblName 
  100.       Caption         =   "Danny Falkov"
  101.       Height          =   255
  102.       Index           =   3
  103.       Left            =   120
  104.       TabIndex        =   11
  105.       Top             =   3600
  106.       Width           =   1335
  107.    End
  108.    Begin VB.Label lblName 
  109.       Caption         =   "Steve Anderson"
  110.       Height          =   255
  111.       Index           =   2
  112.       Left            =   120
  113.       TabIndex        =   10
  114.       Top             =   3360
  115.       Width           =   1335
  116.    End
  117.    Begin VB.Label lblName 
  118.       Caption         =   "Charles Bronner"
  119.       Height          =   255
  120.       Index           =   1
  121.       Left            =   120
  122.       TabIndex        =   9
  123.       Top             =   3120
  124.       Width           =   1335
  125.    End
  126.    Begin VB.Label lblCredits 
  127.       Caption         =   $"About.frx":06F8
  128.       Height          =   615
  129.       Left            =   120
  130.       TabIndex        =   8
  131.       Top             =   2400
  132.       Width           =   5535
  133.    End
  134.    Begin VB.Label lblAbout 
  135.       Caption         =   $"About.frx":07EE
  136.       Height          =   1215
  137.       Left            =   960
  138.       TabIndex        =   7
  139.       Top             =   1080
  140.       Width           =   4575
  141.    End
  142.    Begin VB.Label lblOS 
  143.       AutoSize        =   -1  'True
  144.       Caption         =   "for Windows 95/98 and Windows NT 4."
  145.       Height          =   195
  146.       Left            =   960
  147.       TabIndex        =   6
  148.       Top             =   720
  149.       Width           =   2835
  150.    End
  151.    Begin VB.Label lblVersion 
  152.       AutoSize        =   -1  'True
  153.       Caption         =   "Version 1.0"
  154.       Height          =   195
  155.       Left            =   960
  156.       TabIndex        =   5
  157.       Top             =   480
  158.       Width           =   795
  159.       WordWrap        =   -1  'True
  160.    End
  161.    Begin VB.Label lblBuild 
  162.       Caption         =   "(Build 1234)"
  163.       Height          =   255
  164.       Left            =   1800
  165.       TabIndex        =   4
  166.       Top             =   480
  167.       Width           =   1215
  168.    End
  169.    Begin VB.Label lblTitle 
  170.       AutoSize        =   -1  'True
  171.       Caption         =   "LearnAPI"
  172.       BeginProperty Font 
  173.          Name            =   "MS Sans Serif"
  174.          Size            =   13.5
  175.          Charset         =   0
  176.          Weight          =   700
  177.          Underline       =   0   'False
  178.          Italic          =   0   'False
  179.          Strikethrough   =   0   'False
  180.       EndProperty
  181.       ForeColor       =   &H00000000&
  182.       Height          =   360
  183.       Left            =   960
  184.       TabIndex        =   1
  185.       Top             =   120
  186.       Width           =   1365
  187.       WordWrap        =   -1  'True
  188.    End
  189.    Begin VB.Line Line1 
  190.       BorderColor     =   &H00808080&
  191.       BorderStyle     =   6  'Inside Solid
  192.       Index           =   1
  193.       X1              =   84.515
  194.       X2              =   5300.947
  195.       Y1              =   1604.756
  196.       Y2              =   1604.756
  197.    End
  198.    Begin VB.Line Line1 
  199.       BorderColor     =   &H00FFFFFF&
  200.       BorderWidth     =   2
  201.       Index           =   0
  202.       X1              =   98.6
  203.       X2              =   5300.947
  204.       Y1              =   1615.109
  205.       Y2              =   1615.109
  206.    End
  207. Attribute VB_Name = "frmAbout"
  208. Attribute VB_GlobalNameSpace = False
  209. Attribute VB_Creatable = False
  210. Attribute VB_PredeclaredId = True
  211. Attribute VB_Exposed = False
  212. Option Explicit
  213. 'There is no API code in the frmAbout module. All the
  214. 'code is for the About form only.
  215. Private Sub cmdOK_Click()
  216.   Unload Me
  217. End Sub
  218. Private Sub Form_Load()
  219.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor
  220.     lblBuild.Caption = "(Build " & App.Revision & ")"
  221. End Sub
  222. Private Sub lblMailto_Click(Index As Integer)
  223. Dim Success&
  224.     Select Case Index
  225.         Case 2: Success = ShellExecute(Me.hwnd, vbNullString, "mailto:steve@microweird.demon.co.uk", vbNullString, "C:\", SW_SHOWNORMAL)
  226.     End Select
  227. End Sub
  228. Private Sub lblURL_Click(Index As Integer)
  229. Dim Success&
  230.     Select Case Index
  231.         Case 2: Success = ShellExecute(Me.hwnd, vbNullString, "http://www.microweird.demon.co.uk", vbNullString, "C:\", SW_SHOWNORMAL)
  232.     End Select
  233. End Sub
  234.